home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00021_Script_21 < prev    next >
Text File  |  1995-11-13  |  1KB  |  57 lines
  1. on startMovie
  2.   global gFindString, gFindStringPos, gBaseListFind, gResList
  3.   global gFindFont
  4.   
  5.   
  6.   
  7.   set gFindString = "" 
  8.   set gFindStringPos = 0
  9.   
  10.   set gResList = []
  11.   
  12.   if the machineType = 256 then
  13.     set gFindFont = "Arial"
  14.   else
  15.     set gFindFont = "Palex"
  16.   end if
  17.   
  18.   set the textFont of cast 6 = gFindFont
  19.   
  20.   if the machineType = 256 then
  21.     set the textSize of cast 6 = 12
  22.   else
  23.     set the textSize of cast 6 = 14
  24.   end if
  25.   
  26.   set the textStyle of cast 6 = "bold"
  27.   
  28.   set the text of cast 6 = gFindString
  29.   
  30.   if the machineType = 256 then
  31.     set the textFont of cast 6 = gFindFont 
  32.     set the textFont of cast 2 = gFindFont
  33.     set the textFont of cast 4 = gFindFont
  34.     set the textFont of cast 5 = gFindFont
  35.   end if
  36.   
  37.   if voidP(gBaseListFind) then set gBaseListFind = 4
  38.   set the text of cast 5 = the text of cast gBaseListFind
  39.   
  40.   --set the text of field 6 =  ">>>local  startMovie" && the movieName
  41.   
  42.   global gCOM --gCOM: is true if the movie is a celestial objects movie
  43.   
  44.   set gCom = 0
  45.   
  46.   --set the keyDownScript to "checkKeyDowns"
  47.   
  48.   if the machineType = 256 then
  49.     set the textSize of cast 6 = 12
  50.   else
  51.     set the textSize of cast 6 = 14
  52.   end if
  53.   
  54.   go to Label("Defs")
  55.   
  56. end startMovie
  57.